inherited dtmsb_Equipment: Tdtmsb_Equipment
  OldCreateOrder = True
  Left = 401
  Top = 201
  Height = 417
  Width = 705
  inherited adsMaster: TADODataSet
    CursorType = ctStatic
    CommandText = 'select * from V_da_MachineNo where 0=1'
    Left = 104
    Top = 56
    object adsMasterID: TStringField
      FieldName = 'ID'
    end
    object adsMasterCode: TStringField
      DisplayLabel = #32534#30721
      FieldName = 'Code'
    end
    object adsMasterName: TStringField
      DisplayLabel = #21517#31216
      FieldName = 'Name'
      Size = 100
    end
    object adsMasterSpecs: TStringField
      DisplayLabel = #35774#22791#22411#21495
      FieldName = 'Specs'
      Size = 50
    end
    object adsMasterSNCode: TStringField
      DisplayLabel = 'SN'#30721
      FieldName = 'SNCode'
      Size = 50
    end
    object adsMasterStatus: TWordField
      DisplayLabel = #35774#22791#29366#24577'ID'
      FieldName = 'Status'
    end
    object adsMasterStatusName: TStringField
      DisplayLabel = #35774#22791#29366#24577
      FieldName = 'StatusName'
    end
    object adsMasterHelperCode: TStringField
      DisplayLabel = #21161#35760#30721
      FieldName = 'HelperCode'
      Size = 50
    end
    object adsMasterRuleChildID: TStringField
      DisplayLabel = #35268#21017#32534#30721'ID'
      FieldName = 'RuleChildID'
    end
    object adsMasterDeptID: TStringField
      DisplayLabel = #25152#23646#37096#38376'|ID'
      FieldName = 'DeptID'
    end
    object adsMasterDeptName: TStringField
      DisplayLabel = #25152#23646#37096#38376'|'#21517#31216
      FieldName = 'DeptName'
      Size = 50
    end
    object adsMasterDeptFullName: TStringField
      DisplayLabel = #25152#23646#37096#38376'|'#20840#31216
      FieldName = 'DeptFullName'
      Size = 100
    end
    object adsMasterCreateDate: TDateTimeField
      DisplayLabel = #24314#26723#26085#26399
      FieldName = 'CreateDate'
    end
    object adsMasterMainDays: TIntegerField
      DisplayLabel = #32500#25252#21608#26399'('#22825')'
      FieldName = 'MainDays'
    end
    object adsMasterLubricateDays: TIntegerField
      DisplayLabel = #28070#28369#21608#26399'('#22825')'
      FieldName = 'LubricateDays'
    end
    object adsMasterBuyDate: TDateTimeField
      DisplayLabel = #37319#36141#26085#26399
      FieldName = 'BuyDate'
    end
    object adsMasterInstallDate: TDateTimeField
      DisplayLabel = #23433#35013#26085#26399
      FieldName = 'InstallDate'
    end
    object adsMasterMachineType: TStringField
      DisplayLabel = #35774#22791#31867#22411'ID'
      FieldName = 'MachineType'
    end
    object adsMasterMachineTypeName: TStringField
      DisplayLabel = #35774#22791#31867#22411
      FieldName = 'MachineTypeName'
      Size = 50
    end
    object adsMasterMchType: TStringField
      DisplayLabel = #31867#22411'ID'
      FieldName = 'MchType'
    end
    object adsMasterMchTypeName: TStringField
      DisplayLabel = #31867#22411
      FieldName = 'MchTypeName'
      Size = 50
    end
    object adsMasterHasStop: TBooleanField
      DisplayLabel = #31105#29992#21542
      FieldName = 'HasStop'
    end
    object adsMasterStoper: TStringField
      DisplayLabel = #31105#29992#20154
      FieldName = 'Stoper'
    end
    object adsMasterStopDate: TDateTimeField
      DisplayLabel = #31105#29992#26102#38388
      FieldName = 'StopDate'
    end
    object adsMasterStopMemo: TStringField
      DisplayLabel = #31105#29992#35828#26126
      FieldName = 'StopMemo'
      Size = 50
    end
    object adsMasterHasUse: TBooleanField
      DisplayLabel = #20351#29992#21542
      FieldName = 'HasUse'
    end
    object adsMasterHasSysdefine: TBooleanField
      DisplayLabel = #31995#32479#23450#20041#21542
      FieldName = 'HasSysdefine'
    end
    object adsMasterHasCheck: TBooleanField
      DisplayLabel = #23457#26680#21542
      FieldName = 'HasCheck'
    end
    object adsMasterHasDefault: TBooleanField
      DisplayLabel = #40664#35748#21542
      FieldName = 'HasDefault'
    end
    object adsMasterChecker: TStringField
      DisplayLabel = #23457#26680#20154
      FieldName = 'Checker'
    end
    object adsMasterCheckTime: TDateTimeField
      DisplayLabel = #23457#26680#26102#38388
      FieldName = 'CheckTime'
    end
    object adsMasterWriter: TStringField
      DisplayLabel = #39318#36755#20154
      FieldName = 'Writer'
    end
    object adsMasterWriteTime: TDateTimeField
      DisplayLabel = #39318#36755#26102#38388
      FieldName = 'WriteTime'
    end
    object adsMasterModifier: TStringField
      DisplayLabel = #20462#25913#20154
      FieldName = 'Modifier'
    end
    object adsMasterModifyTime: TDateTimeField
      DisplayLabel = #20462#25913#26102#38388
      FieldName = 'ModifyTime'
    end
    object adsMasterRemark: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'Remark'
      Size = 500
    end
  end
  inherited frdsMain: TfrDBDataSet
    Left = 24
    Top = 56
  end
  inherited adsMasterEdit: TADODataSet
    CursorType = ctStatic
    CommandText = 'Select * from da_MachineNo'
    Top = 8
    object adsMasterEditID: TStringField
      FieldName = 'ID'
    end
    object adsMasterEditCode: TStringField
      DisplayLabel = #32534#30721
      FieldName = 'Code'
      OnChange = adsMasterEditCodeChange
    end
    object adsMasterEditName: TStringField
      DisplayLabel = #21517#31216
      FieldName = 'Name'
      OnChange = adsMasterEditNameChange
      Size = 100
    end
    object adsMasterEditHelperCode: TStringField
      DisplayLabel = #21161#35760#30721
      FieldName = 'HelperCode'
      Size = 50
    end
    object adsMasterEditSpecs: TStringField
      DisplayLabel = #35774#22791#22411#21495
      FieldName = 'Specs'
      Size = 50
    end
    object adsMasterEditSNCode: TStringField
      DisplayLabel = 'SN'#30721
      FieldName = 'SNCode'
      Size = 50
    end
    object adsMasterEditStatus: TWordField
      DisplayLabel = #35774#22791#29366#24577
      FieldName = 'Status'
    end
    object adsMasterEditDeptID: TStringField
      DisplayLabel = #25152#23646#37096#38376'ID'
      FieldName = 'DeptID'
    end
    object adsMasterEditres_DeptName: TStringField
      DisplayLabel = #25152#23646#37096#38376
      FieldKind = fkLookup
      FieldName = 'res_DeptName'
      LookupDataSet = adsDept
      LookupKeyFields = 'DeptID'
      LookupResultField = 'DeptFullName'
      KeyFields = 'DeptID'
      Size = 100
      Lookup = True
    end
    object adsMasterEditCreateDate: TDateTimeField
      DisplayLabel = #24314#26723#26085#26399
      FieldName = 'CreateDate'
    end
    object adsMasterEditBuyDate: TDateTimeField
      DisplayLabel = #37319#36141#26085#26399
      FieldName = 'BuyDate'
    end
    object adsMasterEditInstallDate: TDateTimeField
      DisplayLabel = #23433#35013#26085#26399
      FieldName = 'InstallDate'
    end
    object adsMasterEditMachineType: TStringField
      DisplayLabel = #35774#22791#31867#22411'ID'
      FieldName = 'MachineType'
    end
    object adsMasterEditres_MachineTypeName: TStringField
      DisplayLabel = #35774#22791#31867#22411
      FieldKind = fkLookup
      FieldName = 'res_MachineTypeName'
      LookupDataSet = adsTree
      LookupKeyFields = 'ID'
      LookupResultField = 'Name'
      KeyFields = 'MachineType'
      Size = 50
      Lookup = True
    end
    object adsMasterEditMainDays: TIntegerField
      DisplayLabel = #32500#25252#21608#26399
      FieldName = 'MainDays'
    end
    object adsMasterEditMchType: TStringField
      DisplayLabel = #31867#22411'ID'
      FieldName = 'MchType'
    end
    object adsMasterEditHasStop: TBooleanField
      DisplayLabel = #31105#29992#21542
      FieldName = 'HasStop'
    end
    object adsMasterEditStoper: TStringField
      DisplayLabel = #31105#29992#20154
      FieldName = 'Stoper'
    end
    object adsMasterEditStopDate: TDateTimeField
      DisplayLabel = #31105#29992#26102#38388
      FieldName = 'StopDate'
    end
    object adsMasterEditStopMemo: TStringField
      DisplayLabel = #31105#29992#35828#26126
      FieldName = 'StopMemo'
      Size = 50
    end
    object adsMasterEditHasUse: TBooleanField
      DisplayLabel = #20351#29992#21542
      FieldName = 'HasUse'
    end
    object adsMasterEditHasSysdefine: TBooleanField
      DisplayLabel = #31995#32479#23450#20041#21542
      FieldName = 'HasSysdefine'
    end
    object adsMasterEditHasCheck: TBooleanField
      DisplayLabel = #23457#26680#21542
      FieldName = 'HasCheck'
    end
    object adsMasterEditHasDefault: TBooleanField
      DisplayLabel = #40664#35748#21542
      FieldName = 'HasDefault'
    end
    object adsMasterEditChecker: TStringField
      DisplayLabel = #23457#26680#20154
      FieldName = 'Checker'
    end
    object adsMasterEditCheckTime: TDateTimeField
      DisplayLabel = #23457#26680#26102#38388
      FieldName = 'CheckTime'
    end
    object adsMasterEditWriter: TStringField
      DisplayLabel = #39318#36755#20154
      FieldName = 'Writer'
    end
    object adsMasterEditWriteTime: TDateTimeField
      DisplayLabel = #39318#36755#26102#38388
      FieldName = 'WriteTime'
    end
    object adsMasterEditModifier: TStringField
      DisplayLabel = #20462#25913#20154
      FieldName = 'Modifier'
    end
    object adsMasterEditModifyTime: TDateTimeField
      DisplayLabel = #20462#25913#26102#38388
      FieldName = 'ModifyTime'
    end
    object adsMasterEditRemark: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'Remark'
      Size = 500
    end
  end
  inherited frdsMasterEdit: TfrDBDataSet
    Left = 24
    Top = 112
  end
  object adsTree: TADODataSet
    Active = True
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 'select * from V_da_MachineType'#13#10' order by RuleChildID'
    Parameters = <>
    Left = 128
    Top = 136
  end
  object adsDept: TADODataSet
    Active = True
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    CommandText = 
      'select DeptID, DeptCode, DeptName, DeptFullName'#13#10'from V_da_Depar' +
      'tment where isnull(HasStop,0)=0'
    Parameters = <>
    Left = 184
    Top = 72
  end
  object adssb_MachineInspect: TADODataSet
    Connection = dtmConnect.conMain
    LockType = ltBatchOptimistic
    AfterOpen = adssb_MachineInspectAfterOpen
    OnNewRecord = adssb_MachineInspectNewRecord
    CommandText = 
      'select b.* from sb_MachineSelList a join sb_MachineInspect b on ' +
      'a.DestBillID=b.BillID and a.DestType=0'#13#10'  where a.MachineID=:Mac' +
      'hineID'
    EnableBCD = False
    Parameters = <
      item
        Name = 'MachineID'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    Left = 304
    Top = 40
    object adssb_MachineInspectBillID: TStringField
      FieldName = 'BillID'
    end
    object adssb_MachineInspectBillDate: TDateTimeField
      DisplayLabel = #26085#26399
      FieldName = 'BillDate'
    end
    object adssb_MachineInspectMchs: TStringField
      DisplayLabel = #35774#22791#32534#21495#26174#31034
      FieldName = 'Mchs'
      Size = 5000
    end
    object adssb_MachineInspectContent: TStringField
      DisplayLabel = #23384#22312#38382#39064
      FieldName = 'Content'
      Size = 500
    end
    object adssb_MachineInspectEmpName: TStringField
      DisplayLabel = #26816#26597#20154
      FieldName = 'EmpName'
      Size = 50
    end
    object adssb_MachineInspectRespMan: TStringField
      DisplayLabel = #36131#20219#20154
      FieldName = 'RespMan'
    end
    object adssb_MachineInspectScore: TFloatField
      DisplayLabel = #25187#20998
      FieldName = 'Score'
    end
    object adssb_MachineInspectWriter: TStringField
      DisplayLabel = #39318#36755#20154
      FieldName = 'Writer'
    end
    object adssb_MachineInspectWriteTime: TDateTimeField
      DisplayLabel = #39318#36755#26102#38388
      FieldName = 'WriteTime'
    end
    object adssb_MachineInspectModifier: TStringField
      DisplayLabel = #20462#25913#20154
      FieldName = 'Modifier'
    end
    object adssb_MachineInspectModifyTime: TDateTimeField
      DisplayLabel = #20462#25913#26102#38388
      FieldName = 'ModifyTime'
    end
    object adssb_MachineInspectRemark: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'Remark'
      Size = 50
    end
  end
  object adssb_MachineRepair: TADODataSet
    Connection = dtmConnect.conMain
    LockType = ltBatchOptimistic
    AfterOpen = adssb_MachineRepairAfterOpen
    CommandText = 
      'select b.* from sb_MachineSelList a join sb_MachineRepair b on a' +
      '.DestBillID=b.BillID and a.DestType=2'#13#10'  where a.MachineID=:Mach' +
      'ineID'
    EnableBCD = False
    Parameters = <
      item
        Name = 'MachineID'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    Left = 448
    Top = 40
    object adssb_MachineRepairBillID: TStringField
      FieldName = 'BillID'
    end
    object DateTimeField1: TDateTimeField
      DisplayLabel = #26085#26399
      FieldName = 'BillDate'
    end
    object adssb_MachineRepairMchs: TStringField
      DisplayLabel = #35774#22791#32534#21495#26174#31034
      FieldName = 'Mchs'
      Size = 5000
    end
    object adssb_MachineRepairRepairType: TStringField
      DisplayLabel = #31867#22411
      FieldName = 'RepairType'
    end
    object adssb_MachineRepairCause: TStringField
      DisplayLabel = #32500#20462#21407#22240
      FieldName = 'Cause'
      Size = 200
    end
    object StringField2: TStringField
      DisplayLabel = #32500#20462#20869#23481#21450#37197#20214#26356#25442#24773#20917
      FieldName = 'Content'
      Size = 500
    end
    object adssb_MachineRepairResultMemo: TStringField
      DisplayLabel = #32500#20462#32467#26524
      FieldName = 'ResultMemo'
      Size = 50
    end
    object StringField3: TStringField
      DisplayLabel = #26816#26597#20154
      FieldName = 'EmpName'
      Size = 50
    end
    object adssb_MachineRepairRespMan: TStringField
      DisplayLabel = #36131#20219#20154
      FieldName = 'RespMan'
    end
    object adssb_MachineRepairInspectID: TIntegerField
      DisplayLabel = #26816#26597#35760#24405'ID'
      FieldName = 'InspectID'
    end
    object StringField5: TStringField
      DisplayLabel = #39318#36755#20154
      FieldName = 'Writer'
    end
    object DateTimeField2: TDateTimeField
      DisplayLabel = #39318#36755#26102#38388
      FieldName = 'WriteTime'
    end
    object StringField6: TStringField
      DisplayLabel = #20462#25913#20154
      FieldName = 'Modifier'
    end
    object DateTimeField3: TDateTimeField
      DisplayLabel = #20462#25913#26102#38388
      FieldName = 'ModifyTime'
    end
    object StringField7: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'Remark'
      Size = 50
    end
  end
  object adssb_MachineMaintain: TADODataSet
    Connection = dtmConnect.conMain
    LockType = ltBatchOptimistic
    AfterOpen = adssb_MachineMaintainAfterOpen
    CommandText = 
      'select b.* from sb_MachineSelList a join sb_MachineMaintain b on' +
      ' a.DestBillID=b.BillID and a.DestType=1'#13#10'  where a.MachineID=:Ma' +
      'chineID'
    EnableBCD = False
    Parameters = <
      item
        Name = 'MachineID'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    Left = 304
    Top = 104
    object adssb_MachineMaintainBillID: TStringField
      FieldName = 'BillID'
    end
    object DateTimeField4: TDateTimeField
      DisplayLabel = #26085#26399
      FieldName = 'BillDate'
    end
    object adssb_MachineMaintainMchs: TStringField
      DisplayLabel = #35774#22791#32534#21495#26174#31034
      FieldName = 'Mchs'
      Size = 5000
    end
    object StringField8: TStringField
      DisplayLabel = #20445#20859#35828#26126
      FieldName = 'Content'
      Size = 500
    end
    object StringField9: TStringField
      DisplayLabel = #20445#20859#20154
      FieldName = 'EmpName'
      Size = 50
    end
    object StringField10: TStringField
      DisplayLabel = #36131#20219#20154
      FieldName = 'RespMan'
    end
    object StringField11: TStringField
      DisplayLabel = #39318#36755#20154
      FieldName = 'Writer'
    end
    object DateTimeField5: TDateTimeField
      DisplayLabel = #39318#36755#26102#38388
      FieldName = 'WriteTime'
    end
    object StringField12: TStringField
      DisplayLabel = #20462#25913#20154
      FieldName = 'Modifier'
    end
    object DateTimeField6: TDateTimeField
      DisplayLabel = #20462#25913#26102#38388
      FieldName = 'ModifyTime'
    end
    object StringField13: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'Remark'
      Size = 50
    end
  end
  object adssb_MachineLubricate: TADODataSet
    Connection = dtmConnect.conMain
    LockType = ltBatchOptimistic
    AfterOpen = adssb_MachineLubricateAfterOpen
    CommandText = 
      'select c.* from sb_MachineSelList a join sb_MachineLubMaster b o' +
      'n a.DestBillID=b.BillID and a.DestType=3'#13#10'  join sb_MachineLubri' +
      'cate c on b.BillID=c.BillID'#13#10'  where a.MachineID=:MachineID'
    EnableBCD = False
    Parameters = <
      item
        Name = 'MachineID'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    Left = 448
    Top = 176
    object adssb_MachineLubricateID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object adssb_MachineLubricateBillID: TStringField
      FieldName = 'BillID'
    end
    object DateTimeField7: TDateTimeField
      DisplayLabel = #26085#26399
      FieldName = 'BillDate'
    end
    object adssb_MachineLubricateParts: TStringField
      DisplayLabel = #37096#20301
      FieldName = 'Parts'
      Size = 50
    end
    object adssb_MachineLubricateCycle: TStringField
      DisplayLabel = #21608#26399
      FieldName = 'Cycle'
    end
    object adssb_MachineLubricateOilType: TStringField
      DisplayLabel = #27833#31867
      FieldName = 'OilType'
    end
    object adssb_MachineLubricateOilMass: TFloatField
      DisplayLabel = #27833#37327'('#20811')'
      FieldName = 'OilMass'
    end
    object adssb_MachineLubricateOilMassMemo: TStringField
      DisplayLabel = #27833#37327#35828#26126
      FieldName = 'OilMassMemo'
      Size = 50
    end
    object StringField15: TStringField
      DisplayLabel = #28070#28369#35828#26126
      FieldName = 'Content'
      Size = 500
    end
    object StringField16: TStringField
      DisplayLabel = #21152#27833#20154
      FieldName = 'EmpName'
      Size = 50
    end
    object StringField18: TStringField
      DisplayLabel = #39318#36755#20154
      FieldName = 'Writer'
    end
    object DateTimeField8: TDateTimeField
      DisplayLabel = #39318#36755#26102#38388
      FieldName = 'WriteTime'
    end
    object StringField19: TStringField
      DisplayLabel = #20462#25913#20154
      FieldName = 'Modifier'
    end
    object DateTimeField9: TDateTimeField
      DisplayLabel = #20462#25913#26102#38388
      FieldName = 'ModifyTime'
    end
    object StringField20: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'Remark'
      Size = 50
    end
  end
  object adssb_MachinePartChg: TADODataSet
    Connection = dtmConnect.conMain
    LockType = ltBatchOptimistic
    AfterOpen = adssb_MachinePartChgAfterOpen
    CommandText = 
      'select b.* from sb_MachineSelList a join sb_MachinePartChg  b on' +
      ' a.DestBillID=b.BillID and a.DestType=4'#13#10'  where a.MachineID=:Ma' +
      'chineID'
    EnableBCD = False
    Parameters = <
      item
        Name = 'MachineID'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    Left = 304
    Top = 176
    object adssb_MachinePartChgBillID: TStringField
      FieldName = 'BillID'
    end
    object DateTimeField10: TDateTimeField
      DisplayLabel = #26085#26399
      FieldName = 'BillDate'
    end
    object adssb_MachinePartChgMchs: TStringField
      DisplayLabel = #35774#22791#32534#21495#26174#31034
      FieldName = 'Mchs'
      Size = 5000
    end
    object adssb_MachinePartChgParts: TStringField
      DisplayLabel = #26356#25442#37197#20214
      FieldName = 'Parts'
      Size = 200
    end
    object StringField21: TStringField
      DisplayLabel = #26356#25442#35828#26126
      FieldName = 'Content'
      Size = 500
    end
    object StringField22: TStringField
      DisplayLabel = #26356#25442#20154
      FieldName = 'EmpName'
      Size = 50
    end
    object adssb_MachinePartChgRespMan: TStringField
      DisplayLabel = #36131#20219#20154
      FieldName = 'RespMan'
    end
    object StringField23: TStringField
      DisplayLabel = #39318#36755#20154
      FieldName = 'Writer'
    end
    object DateTimeField11: TDateTimeField
      DisplayLabel = #39318#36755#26102#38388
      FieldName = 'WriteTime'
    end
    object StringField24: TStringField
      DisplayLabel = #20462#25913#20154
      FieldName = 'Modifier'
    end
    object DateTimeField12: TDateTimeField
      DisplayLabel = #20462#25913#26102#38388
      FieldName = 'ModifyTime'
    end
    object StringField25: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'Remark'
      Size = 50
    end
  end
  object adssb_MachineReform: TADODataSet
    Connection = dtmConnect.conMain
    LockType = ltBatchOptimistic
    AfterOpen = adssb_MachineReformAfterOpen
    CommandText = 
      'select b.* from sb_MachineSelList a join sb_MachineReform b on a' +
      '.DestBillID=b.BillID and a.DestType=5'#13#10'  where a.MachineID=:Mach' +
      'ineID'
    EnableBCD = False
    Parameters = <
      item
        Name = 'MachineID'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    Left = 448
    Top = 240
    object adssb_MachineReformBillID: TStringField
      FieldName = 'BillID'
    end
    object DateTimeField13: TDateTimeField
      DisplayLabel = #26085#26399
      FieldName = 'BillDate'
    end
    object adssb_MachineReformMchs: TStringField
      DisplayLabel = #35774#22791#32534#21495#26174#31034
      FieldName = 'Mchs'
      Size = 5000
    end
    object adssb_MachineReformMeasure: TStringField
      DisplayLabel = #25972#25913#25514#26045
      FieldName = 'Measure'
      Size = 200
    end
    object StringField28: TStringField
      DisplayLabel = #25972#25913#35828#26126
      FieldName = 'Content'
      Size = 500
    end
    object StringField29: TStringField
      DisplayLabel = #25972#25913#20154
      FieldName = 'EmpName'
      Size = 50
    end
    object StringField30: TStringField
      DisplayLabel = #36131#20219#20154
      FieldName = 'RespMan'
    end
    object StringField31: TStringField
      DisplayLabel = #39318#36755#20154
      FieldName = 'Writer'
    end
    object DateTimeField14: TDateTimeField
      DisplayLabel = #39318#36755#26102#38388
      FieldName = 'WriteTime'
    end
    object StringField32: TStringField
      DisplayLabel = #20462#25913#20154
      FieldName = 'Modifier'
    end
    object DateTimeField15: TDateTimeField
      DisplayLabel = #20462#25913#26102#38388
      FieldName = 'ModifyTime'
    end
    object StringField33: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'Remark'
      Size = 50
    end
  end
  object adssb_MachineHalt: TADODataSet
    Connection = dtmConnect.conMain
    LockType = ltBatchOptimistic
    AfterOpen = adssb_MachineHaltAfterOpen
    CommandText = 
      'select b.* from sb_MachineSelList a join sb_MachineHalt b on a.D' +
      'estBillID=b.BillID and a.DestType=6'#13#10'  where a.MachineID=:Machin' +
      'eID'
    EnableBCD = False
    Parameters = <
      item
        Name = 'MachineID'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    Left = 304
    Top = 248
    object adssb_MachineHaltBillID: TStringField
      FieldName = 'BillID'
    end
    object DateTimeField16: TDateTimeField
      DisplayLabel = #26085#26399
      FieldName = 'BillDate'
    end
    object adssb_MachineHaltMchs: TStringField
      DisplayLabel = #35774#22791#32534#21495#26174#31034
      FieldName = 'Mchs'
      Size = 5000
    end
    object adssb_MachineHaltHours: TFloatField
      DisplayLabel = #20572#26426#26102#38271'('#23567#26102')'
      FieldName = 'Hours'
    end
    object StringField35: TStringField
      DisplayLabel = #20572#26426#35828#26126
      FieldName = 'Content'
      Size = 500
    end
    object StringField38: TStringField
      DisplayLabel = #39318#36755#20154
      FieldName = 'Writer'
    end
    object DateTimeField17: TDateTimeField
      DisplayLabel = #39318#36755#26102#38388
      FieldName = 'WriteTime'
    end
    object StringField39: TStringField
      DisplayLabel = #20462#25913#20154
      FieldName = 'Modifier'
    end
    object DateTimeField18: TDateTimeField
      DisplayLabel = #20462#25913#26102#38388
      FieldName = 'ModifyTime'
    end
    object StringField40: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'Remark'
      Size = 50
    end
  end
  object adsLubricateTemp: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    OnNewRecord = adsLubricateTempNewRecord
    CommandText = 'Select * from sb_MachineLubricate where 0=1'
    EnableBCD = False
    Parameters = <>
    Left = 592
    Top = 104
    object AutoIncField7: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object adsLubricateTempBillID: TStringField
      DisplayLabel = #20851#32852'ID'
      FieldName = 'BillID'
    end
    object DateTimeField19: TDateTimeField
      DisplayLabel = #26085#26399
      FieldName = 'BillDate'
    end
    object StringField36: TStringField
      DisplayLabel = #37096#20301
      FieldName = 'Parts'
      Size = 50
    end
    object StringField37: TStringField
      DisplayLabel = #21608#26399
      FieldName = 'Cycle'
    end
    object StringField41: TStringField
      DisplayLabel = #27833#31867
      FieldName = 'OilType'
    end
    object FloatField1: TFloatField
      DisplayLabel = #27833#37327'('#20811')'
      FieldName = 'OilMass'
    end
    object adsLubricateTempOilMassMemo: TStringField
      DisplayLabel = #27833#37327#35828#26126
      FieldName = 'OilMassMemo'
      Size = 50
    end
    object StringField42: TStringField
      DisplayLabel = #28070#28369#35828#26126
      FieldName = 'Content'
      Size = 500
    end
    object StringField43: TStringField
      DisplayLabel = #21152#27833#20154
      FieldName = 'EmpName'
      Size = 50
    end
    object StringField44: TStringField
      DisplayLabel = #39318#36755#20154
      FieldName = 'Writer'
    end
    object DateTimeField20: TDateTimeField
      DisplayLabel = #39318#36755#26102#38388
      FieldName = 'WriteTime'
    end
    object StringField45: TStringField
      DisplayLabel = #20462#25913#20154
      FieldName = 'Modifier'
    end
    object DateTimeField21: TDateTimeField
      DisplayLabel = #20462#25913#26102#38388
      FieldName = 'ModifyTime'
    end
    object StringField46: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'Remark'
      Size = 50
    end
  end
  object adsSelTemp: TADODataSet
    Connection = dtmConnect.conMain
    LockType = ltBatchOptimistic
    CommandText = 
      'Select BillID, BillNo, Title from sb_MachineTempMaster where Dep' +
      'tID=:DeptID'#13#10'and isnull(HasCheck,0)=1'
    EnableBCD = False
    Parameters = <
      item
        Name = 'DeptID'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    Left = 496
    Top = 280
    object adsSelTempBillID: TStringField
      FieldName = 'BillID'
    end
    object adsSelTempBillNo: TStringField
      DisplayLabel = #32534#21495
      FieldName = 'BillNo'
    end
    object adsSelTempTitle: TStringField
      DisplayLabel = #27169#26495#26631#39064#25551#36848
      FieldName = 'Title'
      Size = 100
    end
  end
  object adssb_MachineLubMaster: TADODataSet
    Connection = dtmConnect.conMain
    LockType = ltBatchOptimistic
    AfterOpen = adssb_MachineLubMasterAfterOpen
    CommandText = 
      'select b.* from sb_MachineSelList a join sb_MachineLubMaster b o' +
      'n a.DestBillID=b.BillID and a.DestType=3'#13#10'  where a.MachineID=:M' +
      'achineID'
    EnableBCD = False
    Parameters = <
      item
        Name = 'MachineID'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    Left = 448
    Top = 104
    object StringField1: TStringField
      FieldName = 'BillID'
    end
    object DateTimeField22: TDateTimeField
      DisplayLabel = #26085#26399
      FieldName = 'BillDate'
    end
    object adssb_MachineLubMasterMchs: TStringField
      DisplayLabel = #35774#22791#32534#21495#26174#31034
      FieldName = 'Mchs'
      Size = 5000
    end
    object StringField48: TStringField
      DisplayLabel = #39318#36755#20154
      FieldName = 'Writer'
    end
    object DateTimeField23: TDateTimeField
      DisplayLabel = #39318#36755#26102#38388
      FieldName = 'WriteTime'
    end
    object StringField49: TStringField
      DisplayLabel = #20462#25913#20154
      FieldName = 'Modifier'
    end
    object DateTimeField24: TDateTimeField
      DisplayLabel = #20462#25913#26102#38388
      FieldName = 'ModifyTime'
    end
    object StringField50: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'Remark'
      Size = 50
    end
  end
  object adsLubMasterTemp: TADODataSet
    Connection = dtmConnect.conMain
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    OnNewRecord = adsLubricateTempNewRecord
    CommandText = 'Select * from sb_MachineLubMaster where 0=1'
    EnableBCD = False
    Parameters = <>
    Left = 592
    Top = 48
    object StringField4: TStringField
      DisplayLabel = #20851#32852'ID'
      FieldName = 'BillID'
    end
    object DateTimeField25: TDateTimeField
      DisplayLabel = #26085#26399
      FieldName = 'BillDate'
    end
    object adsLubMasterTempMchs: TStringField
      DisplayLabel = #35774#22791#32534#21495#26174#31034
      FieldName = 'Mchs'
      Size = 5000
    end
    object StringField51: TStringField
      DisplayLabel = #39318#36755#20154
      FieldName = 'Writer'
    end
    object DateTimeField26: TDateTimeField
      DisplayLabel = #39318#36755#26102#38388
      FieldName = 'WriteTime'
    end
    object StringField52: TStringField
      DisplayLabel = #20462#25913#20154
      FieldName = 'Modifier'
    end
    object DateTimeField27: TDateTimeField
      DisplayLabel = #20462#25913#26102#38388
      FieldName = 'ModifyTime'
    end
    object StringField53: TStringField
      DisplayLabel = #22791#27880
      FieldName = 'Remark'
      Size = 50
    end
  end
  object ads_MachineDelList: TADODataSet
    Connection = dtmConnect.conMain
    LockType = ltBatchOptimistic
    CommandText = 'Select * from sb_MachineSelList where 0=1'
    EnableBCD = False
    Parameters = <>
    Left = 592
    Top = 176
  end
end
